home *** CD-ROM | disk | FTP | other *** search
/ A Virtual Reality Guide to Texas / CD.iso / texdata / shared.cst / 00004_begin interaction.ls < prev    next >
Encoding:
Text File  |  1998-06-17  |  718 b   |  28 lines
  1. --on exitFrame
  2. --  global glist, gInterFrame, gSndloopCH, gTimer
  3. --  
  4. --  put the castnum of sprite (1) into backcast
  5. --  put the castnum of sprite (5) into sprite5c
  6. --  put the castnum of sprite (6) into sprite6c
  7. --  put the castnum of sprite (7) into sprite7c
  8. --  
  9. --  put [backcast,sprite5c,sprite6c,sprite7c] into glist
  10. --  
  11. --  -- glist is as follows [1,2,3,4]
  12. --  -- 1 : background cast number
  13. --  -- 2 : sprite 5 start cast number
  14. --  -- 3 : sprite 6 start cast number
  15. --  -- 4 : sprite 7 start cast number
  16. --  
  17. --  put the frame into gInterFrame
  18. --  
  19. --  clearSprites
  20. --  
  21. --  if not soundBusy(3) then 
  22. --    puppetSound 3,"Loop.aif"  
  23. --    updateStage
  24. --  end if
  25. --  
  26. --  put the ticks into gTimer
  27. --  
  28. --end